﻿Public Partial Class BOLogin
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub lnkLogin_Click(ByVal sender As Object, ByVal e As EventArgs) Handles lnkLogin.Click

        Dim User = txtLogin.Text.ToLower
        Dim Pass = txtPass.Text.ToLower

        If User = "admin" And Pass = "admin" Then
            System.Threading.Thread.Sleep(3000)
            FormsAuthentication.RedirectFromLoginPage("Administrador", False)
        End If

    End Sub
End Class